Option Explicit
'u@Ҳ
Private Sub Worksheet_Activate()
    MsgBox Me.Name & "Active]ҥΡ^AC"
End Sub
